home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006a.dsk / CATS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  546b  |  15 lines
  1. 2 D$ =  CHR$(4)
  2. 10  PRINT D$"BLOAD UNPACKER"
  3. 15  HOME : VTAB 10: PRINT "<<<  WHEN YOU'RE TIRED, HIT ANY KEY >>>": POKE  -16368,0
  4. 20  PRINT D$;"BLOAD CAT1,A$6000"
  5. 25  POKE 7699,32: POKE 7737,64: POKE 7802,64: CALL 7680
  6. 30  PRINT D$;"BLOAD CAT2,A$6000"
  7. 35  POKE 7699,64: POKE 7737,96: POKE 7802,96: CALL 7680
  8. 40  POKE  -16302,0: POKE  -16304,0: POKE  -16297,0
  9. 50  POKE  -16300,0
  10. 60  FOR I = 1 TO 500: NEXT 
  11. 70  POKE  -16299,0
  12. 80  FOR I = 1 TO 300: NEXT 
  13. 90  IF  PEEK( -16384) <127 GOTO 50
  14. 180  TEXT : HOME : PRINT D$;"RUN GARRISON'S.SHOW"
  15. 190  END